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v03-002 KFHOO002 Ken Mendersen 9 Aug 1983 
Remove clear of wrap bit 


v03-001 Ernooes Hender 14 Apr 1983 
eotuen EDFS_ DEVEL ASS in RO 7 not 
terminal, rather than cal ing 
IBSSTOP. Also, clear ath WRAP bit 
n the SETMODE. 
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EDFSTERM = MACRO-32 SUPPORT ROUTINES FOR EDF. 16-SEP-1984 00:32:14 VAX/VMS M v04-00 p E 
teats gre eEr1o8 Dosscise Lene Cac heSrSEMm Mags 1 age) v 
4 SDiepe 
DIBDEF 
IODEF 
SDCDEF 
aL 
: STT2DEF 8 
0000 § a -PSECT EDF STERM_DATABASE , LONG 9 
; 0 
§ 3; This is the static database for the module. 0 
8 $ : It contains the necessary data blocks for the Q10 services. 8 
99 6¢ i 0 
Zioe ¢ 
GE 49 24 53 59 53 copooogs “9 9E9°RR" § 65 TTY: eASCID /SYSSINPUT:/ 0 
2 1 6 8 
00000014 001 6 TTYCHN: -BLKW 1 0 
00000015 Bie 98 TTYIN: -BLKB 1 
O18 29 ~ ALIGN LONG 4 
00000020 S18 Lf: TTYIOSB -BLKW 4 0 
OOO0001A 0 o TERMSPEED = TTYIOSB + 2 S 
000038 00 75 EDFSOLDMODE -BLKW 0 
00000021 0 7 TERMNUM = EDFSOLDMODE + 1 0 
00000024 7 TERMCHR = EDFSOLDMODE + 4 0 
00000028 | ee EXTRABITS = EDFSOLDMODE + 8 8 
000008 0 00 0 EDFSNEWMODE B 12 0 
000003C 05 1 NEWCHR s+ EDFSNEWMODE + 4 0 
0000003F b2 Ht TERMPAGE = EDFSNEWMODE + 7 8 
Soong? 5 He DIB: -BLKB DIBSK_LENGTH 0 
4 3) 4 oce 5 DIB_DESC WORD DIBSK_LENGTH, 0 
00000050' 3 Hy ADDRESS DIB 
act Ht ~ ALIGN LONG 4 
OCC 90 EXITBLOCK: 3 exit control block 0 
8 8 cf 91 - LONG 0 3 system uses this for pointer 8 
18° 00D 38 - ADDRESS EDFSRESET_TERM ; address of exit handler (to reset 
000000 D4 9 - LONG 3: number of args for handler 
Hato D8 94 ADDRESS STATUS 3; address to receive status code 
O0000EO O0DC 95 STATUS: eBLKL 3 status code 
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ERM.MAR; 1 


0000 »PSECT EDF STERM_CODE,LONG 


EDFSTERM_SETUP == Set up the terminal and get its speed. 


This routine queries the toratont driver to see what's the 
speed of the terminal we're talking to. 

It also checks to make sure that indeed the input is a terminal, 
and it also sets the page length to 16 for hardcopy terminals. 
It also declares an exit handler and sets up a control/C AST. 


CALLING SEQUENCE: 
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100 
1 
198 
104 
5 
199 
198 
0 110 TERMINAL_SPEED := EDFSTERM_SETUP; 
0 118 
BR Be, 
0000 0 115 .ENTRY EDFSTERM_SETUP, “M<> 
000 19 SASSIGN_S - 
900 118 DEVNAM = TTY,- 
990 119 CHAN == -_TTYCHN 
03 50 &8 0017-121 BLBS _RO,7$ 
OOCA «31 OO1A : BRW ERROR 
001D 124 7$: S$GETCHN_S - 
9910 125 CHAN = =_-_TTYCHN, = 
9010 6 PRIBUF = DIB_DESC 
oan §F OsK (158 BheS ERROR 
42 BF  00000054'EF 9% 0030 130 9$ CMPB DIB+DIBSB_DEVCLASS, #DC$_TERM 
OA 18 043 131 BEQL PAST 
50 00000000°8F 00 boc? 1 § MOVL  § #EDF$_DEVCLASS,RO ; INDICATE IT'S NOT A TERMINAL 
0095 31 4 4 BRW OUT 
051 1 6 PAST:  $Q10W_S - 
051 1 CHAN = =_:_TTYCHN,- 
51-138 FUNC = #10$_SENSEMODE,- 
51 139 10SB = =_—«TTYIOSB,- 
f 140 1 = EDFSOLDMODE 
00000038'EF 00000020'EF 7D 0078 14 MOVQ EDFSOLDMODE,  EDFSNEWMODE : COPY EDFSOLDMODE INTO EDF SNEWMODE 
00000040° EF $ O0g8'EF 7D 128 MOVQ EDFSOLDMODE+8, EDF SNEWMODE+8 
00000048 ' EF 0030°EF 7D E 144 MOVQ  EDFSOLDMODE+16, EDFSNEWMODE+16 
00000024 "EF oc EO 0099 146 BBS #TTSV_SCOPE, | TERMCHR,- : SKIP DOWN IF IT°S A SCOPE 
oie nee 
0000003F"EF 10 90 OOA1 149 MOVBs#'16, TERMPAGE : SET PAGE = 16 LINES 
A 130 $ HARDCOPY TERMINALS ARE SPECIAL 
A 133 VIDEO: 
AB $al0w_s - 
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EDFSTERM = MACRO=32 SUPPORT ROUTINES FOR EDF. 16=SEP=1984 4 VAX/VMS Macro V04-00 Page 
viteetty gr ser} 3b 88 32: i EDF -SRCJED FTERM.MAR: 1 . dy 
AB 154 CHAN == -TTYCHN,= 
A 5 FUNC = #10$_SETMODE,- 
AB 136 P = EDF SNEWMOD 
i 138 SDCLEXH_S DESBLK=EX1 TBLOCK ; DECLARE THE EXIT HANDLER 
OOOOOOFO’EF 00 FB 08 16 CALLS #0, EDFSCTRLCAST : SETUP *C AST ROUTINE 
50  O000001A'EF 9A OF 18 MOVZBL TERMSPEED, RO 
4 Eg 163 OUT: RET 
OE7 165 ERROR: 
E7166 $EXIT_S RO 
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EDFSTERM = MACRO=-32 SUPPORT ROUTINES FOR EDF. 16-SEP-1984 00:32:14 VAX/VMS Macro v04-00 Page 5 
eet ett ESE? EDF .SRCJEDFTERM.MAR; 1 ° (4) 
F 168 3 ++ 
F 18 3 
: 109 ; EDFSCTRLCAST == Set up “C ast. 
OF 1% : This routine sets up another “C ast. 
OF 174 ; CALLING SEQUENCE: 
F 1% : EDFSCTRLCAST; 
F Wes 
OF 178 ; -- 
oF 179 
0000 bor 189 eENTRY EDFSCTRLCAST, “M<> 
OF 186 $Ql0W_S - ; SET UP THE CONTROL/C AST 
OF 18 CHAN = TTYCHN,- 
OOF 184 FUNC = #10$ SETMODE ! IO$M_CTRLCAST,- 
OOF 19 Pi = CTRLCAST_ROUTINE 
011 186 
04 0117 187 RET 


tail off off off off ofl ofl of ol oll od ol ld ld Ll LL dd dd I I Ot II AI AI I IV AION OU 


E 
V 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0000 


SOO YP Yr \ \ \ CoM cococococococeceavce0o 


—DOOWVOWVOSCOOOO0O0O0O0O0O0O0O0OC 


SOOWONA UES WN" O OONOULS WIN 


Rorononononononononong 2 2 2 


QO000000"EF 00 FB 
04 


¢ 13 
EDFSTERM ~ MACRO=32 SUPPORT ROUTINES FOR EDF. 16-SEP-1984 00:32:14 YAX/VMS M = 
VOe=000 So $Eb=1984 00:26: RCTEDF TERR. MAR to: 


754 CEDF.SRCJEDFTERM.MAR; 1 


++ 
EDFSRESET_TERM -- Reset TTDRV to its original mode. 


This routine returns TTDRV to it start mode, plus it calls 
EDFSRESET SCROLL to put the scrolling back to full screen. 


CALLING SEQUENCE: 
EDF SRESET_TERM; 


ENTRY EDF SRESET_TERM, “M<> 


$Q10W_S - 
CHA = 
FUNC = ros SETMODE,- 
P1 2 EDF $0: DMODE 
CALLS #0, EDFSRESET_SCROLL ; RESET VT100'S SCROLL REGION 
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SrSEb=1984 00:24:56 

++ 
: CTRLCAST ROUTINE -- Catch Control/C when typed by the user. 
This routine does a SYSSEXIT to call the exit handler before leaving. 
CALLING SEQUENCE: 
called as an AST routine 

ENTRY CTRLCAST_ROUTINE,“M<> 

SEXIT_S 

RET ; never gets here - we hope! 


: invoke image rundown, which calls the exit handler 
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EDFSTERM = MACRO=32 SUPPORT ROUTINES FOR EDF. 16-SEP-1984 00:32:14 VAX/VMS Macro V04-00 p 8 
Symbol table aes PRE ae a rae Tae Be = o 
$371 
CTRLCAST_ROUT INE { 90 RG 03 | 
DC$_TERM = 4 | 
DIB 50 R 02 
DIBS$B_DEVCLASS = 04 
DIBSK"LENGTH 4 4 
DIB_DESC C4 R 0 
EDFSCTRLCAST FO RG 
Ebates SA 8 
EOF SRESET TERRES 90000118 RG” 
EDFSTERM. SETUP 8p 88000 RG 
I te O00000E7 ROS 
EXITBLOCK 09009 R 02 
EXTRABITS = 0000 ; R 0 
1OSM_CTRLCAST = 000001 
10$_SENSEMOD = 000 0 
i la = BonnoOs RO 
= 
OUT Go0g00e6 R 8 | 
PAST 0000051 R 03 
STATUS Q0000Dc R02 | 
SYSSASSIGN aeeeeeee GX 0 
SYSSDCLEXH teeeeeee GX 03 
SYSSEXIT eeeneeee GX $3 
SYSSGETCHN aeeeeneer GX 03 
SY$$Q10W eeeeeree GX 03 
fae a 
Ss 

TERMPAGE = 0000003F R 02 
TERMSPEED = Q000001A R 02 
ie BSR eo 
TTYCHN 299001 R 02 
TTYIN 0014 R 0 
TTYIOSB 0000018 R 
VIDEO 000000A8 R 0 

feos me em ewww mmo + 

: Psect synopsis H 

i ee } 
PSECT nome Allocation PSECT No. Attributes 
. Mate 0000000 < 0.) 0 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBS$ 0000000 < ) ( NOPIC USR CON S$ LCL NOSHR EXE RD WRT NOVEC BYTE | 
EDF $STERM_DATABASE 90000 ( 334: é ( @:) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
EDF STERM~ CODE 000151 (¢ 337:) ( 33) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG | 
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VAX-11 Macro Run Statistics 


toewmeaer moses ec aescnwnmnzrcasze $ 


! Performance indicators ! 


fos oon mmm annanmeaann soos a + 


Phase Page faults CPU Time Elapsed Time 
Initialization 0: ‘8 .13 g: :00.72 
Command processing 1 :00:00.41 :00:01. 
Pass 1 3 :00:10.75 3: : 6:43 
Puss ¢ table sort sy :00: 91:94 :00:04.1 
Symbol table output : 00:08 8: :00.: H 
Psect synopsis output ° 88 :00. 
Cross-reference output 300: 98 : 3: -00 
Assembler run totals 54 0:00:37.29 


The 2 york ing set Limit was 1200 pages. 
bytes (120 pages) of virtual memory were weed to buffer the intermediate 

There were 70 pages of symbol table , trece oh ocates to hold 1211 non-local and 

$30 source lines were read in Pass 1, producing 27 object records in Pass 2. 

2 pages of virtual memory were used to define 21 macros. 


ode. 
local symbols. 
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; Macro Library statistics ! 


Macro Library name 


_$255S$DUA28: CSYSLIBISTARLET.MLB; 2 
1350 GETS were required to define 18 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:EDF TERM/OBJ=OBJ$:EDF TERM MSRC$: EDF TERM/UPDATE=(ENHS: EDF TERM) 
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